﻿Imports Oracle.DataAccess.Client
Imports System.Data.OleDb

Partial Class Menu
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ViewState("Visitas") = 0
            Application("VarApplication") = Application("VarApplication") + 1
            lblApli.Text = Application("VarApplication")
        End If
        If Session("VarSessionUserIdCategoria") = 3 Then
            btnDenuncias.Visible = False
        End If

        lblUserNick.Text = Session("VarSessionUserNick")
        lblUserNombre.Text = Session("VarSessionUserNombre")
        lblUserIdCategoria.Text = Session("VarSessionUserIdCategoria")
        lblUserCategoria.Text = Session("VarSessionUserCategoria")
        lblUserIdComisaria.Text = Session("VarSessionUserIdComisaria")
        lblUserComisaria.Text = Session("VarSessionUserComisaria")
        lblUserIdNodo.Text = Session("VarSessionUserIdNodo")
        lblUserNodo.Text = Session("VarSessionUserNodo")
        lblUserIdUsuario.Text = Session("VarSessionUserIdUsuario")
    End Sub

    Protected Sub btnSeleecionaTabls_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnComisarias.Click, btnUsuarios.Click, btnDenuncias.Click, btnInfoDominio.Click, btnDenunciasCargar.Click, btnDenunciasModificar.Click
        Select Case sender.id
            Case "btnComisarias" : Response.Redirect("Comisarias.aspx")
            Case "btnUsuarios" : Response.Redirect("Usuarios.aspx")
            Case "btnDenuncias"
                If Session("VarSessionUserIdCategoria") = 3 Then
                    Response.Redirect("Denuncias.aspx")
                Else
                    Response.Redirect("DenunciasAdm.aspx")
                End If

            Case "btnInfoDominio" : Response.Redirect("InfoDominio.aspx")
            Case "btnDenunciasCargar" : Response.Redirect("DenunciasCargar.aspx")
            Case "btnDenunciasModificar" : Response.Redirect("DenunciasModificar.aspx")
        End Select
    End Sub

End Class
